home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / time / recall / install / install < prev    next >
Encoding:
Text File  |  1994-04-28  |  19.7 KB  |  568 lines
  1. ; Installation-script for the Recall-package
  2.  
  3. ;****************************************************************************
  4. ; Global variables.  DO NOT TOUCH!
  5.  
  6. (set #programmer        "© 1993-1994 Ketil Hunn")
  7. (set #version                "V2.3")
  8.  
  9. (set RECALL                    "Recall")
  10. (set RECALLPREFS        (cat RECALL            " Preferences"))
  11. (set RECALL.PREFS        (cat RECALL            ".prefs"))
  12. (set RECALLGUIDE        (cat RECALL            ".guide"))
  13. (set RECALLASCII        (cat RECALL         ".ASCII"))
  14. (set CONVERTER            "ReConvert")
  15. (set CONVERTERGUIDE    (cat CONVERTER    ".guide"))
  16. (set CONVERTERASCII    (cat CONVERTER    ".ASCII"))
  17.  
  18. (set #Mainprog            (cat "/" RECALL))
  19. (set #Prefsprog            (cat "/Prefs/" RECALL))
  20. (set #Project                (cat "/Prefs/Env-Archive/" RECALL ".prefs"))
  21. (set #Convprog            (cat "/Tools/" CONVERTER)) 
  22. (set #recguide            (cat "/Docs/" RECALL        ".guide"))
  23. (set #recascii            (cat "/Docs/" RECALL        ".ASCII"))
  24. (set #convguide            (cat "/Docs/" CONVERTER    ".guide"))
  25. (set #convascii            (cat "/Docs/" CONVERTER    ".ASCII"))
  26. (set #Locale                "/Locale")
  27. (set #Localedest        "LOCALE:Catalogs")
  28. (set @default-dest    "SYS:")
  29. (set guidedest            "HELP:English/")
  30. (set docdest                "DOCS:")
  31. (set default_lang 0)
  32.  
  33. (set mainsize                 (getsize #Mainprog))
  34. (set prefssize             (getsize #Prefsprog))
  35. (set convsize                 (getsize #Convprog))
  36. (set projectsize        (getsize #Project))
  37. (set recguidesize         (getsize #recguide))
  38. (set recasciisize         (getsize #recascii))
  39. (set convguidesize    (getsize #convguide))
  40. (set convasciisize    (getsize #convascii))
  41. (set done (+ mainsize prefssize convsize projectsize recguidesize recasciisize convguidesize convasciisize))
  42.  
  43. (complete 0)
  44.  
  45. ;****************************************************************************
  46. ; English strings
  47.  
  48. (if(= @language "english")
  49.     (
  50.         (set partstxt    (cat     "Select parts of " RECALL " " #VERSION " to install:\n"
  51.                                                 "Press HELP for a short description of the files"))
  52.         (set parthelp (cat "Description of files:\n\n"
  53.                                                 RECALL ":\n"
  54.                                                 "Main program\n\n"
  55.                                                 RECALLPREFS        ":\n"
  56.                                                 "Make your own projects\n\n"
  57.                                                 RECALL ".prefs:\n"
  58.                                                 "An example project\n\n"
  59.                                                 "Guide-files:\n"
  60.                                                 "Documentation describing the programs in this "
  61.                                                 "package.  The format is AmigaGuide.  These docs "
  62.                                                 "may be accessed directly from their programs.\n\n"
  63.                                                 "ASCII-files:\n"
  64.                                                 "Documentation discribing the programs in this "
  65.                                                 "package.  They contain the same information as "
  66.                                                 "the Guide-files, but without the guide-codes. "
  67.                                                 "They are to be used if you want to print the "
  68.                                                 "documentation.\n\n"
  69.                                                 CONVERTER        ":\n"
  70.                                                 "Program to convert projects between different "
  71.                                                 "formats\n\n"
  72.                                     ))
  73.         (set langtxt    (cat    "Select which additional languages to install:\n"
  74.                                                 "(english is built-in - no need to install it)"))
  75.         (set abouttotxt        "About to copy")
  76.         (set destdrawtxt    "Destination Drawer to Copy to:")
  77.         (set renametxt        "Any old project will be renamed as")
  78.         (set prefshelp        (cat    "The example project contains some hints "
  79.                                                         "about the usage of " RECALL " and may be useful "
  80.                                                         "inexperienced users. Press 'Yes' to install "
  81.                                                         "the project.\n\n"
  82.                                                         "Experienced user should continue by pressing "
  83.                                                         "'No'.")
  84.                                         )
  85.         (set #WhereRecallGuide  (cat "Select disk or drawer where the " RECALL " Amigaguide-document will be installed:"))
  86.         (set #WhereRecallASCII  (cat "Select disk or drawer where the " RECALL " ASCII-document will be installed:"))
  87.         (set #WhereConvertGuide (cat "Select disk or drawer where the " CONVERTER " Amigaguide-document will be installed:"))
  88.         (set #WhereConvertASCII    (cat "Select disk or drawer where the " CONVERTER " ASCII-document will be installed:"))
  89.     )
  90. )
  91.  
  92. ;****************************************************************************
  93. ; Norwegian strings
  94.  
  95. (if(= @language "norsk")
  96.     (
  97.         (set default_lang 1)
  98.         (set partstxt (cat     "Velg de deler av " RECALL " " #VERSION " som skal "
  99.                                                 "installeres:\n"
  100.                                                 "Trykk HJELP for nærmere beskrivelse av filene."))
  101.         (set parthelp (cat "Beskrivelse av filene:\n\n"
  102.                                                 RECALL ":\n"
  103.                                                 "Hovedprogrammet.\n\n"
  104.                                                 RECALLPREFS        ":\n"
  105.                                                 "Med dette programmet setter du opp hendelsene "
  106.                                                 "du vil bli påminnet om.\n\n"
  107.                                                 RECALL ".prefs:\n"
  108.                                                 "Et eksempel på prosjekt.\n\n"
  109.                                                 "Guide-filer:\n"
  110.                                                 "Dokumentasjon på programmene i denne pakke. "
  111.                                                 "Formatet er AmigaGuide.  Disse filene kan styres "
  112.                                                 "direkte fra programmene.\n\n"
  113.                                                 "ASCII-filer:\n"
  114.                                                 "Dokumentasjon på programmene i denne pakken. "
  115.                                                 "De inneholder samme informasjon som Guide-filene, "
  116.                                                 "men inneholder ingen koder og ment å brukes hvis"
  117.                                                 "dokumentasjonen skal skrives ut.\n\n"
  118.                                                 CONVERTER        ":\n"
  119.                                                 "Program for å konvertere prosjekter mellom "
  120.                                                 "forskjellige format\n\n"
  121.                                     ))
  122.         (set langtxt    (cat    "Velg hvilke språk som skal installeres:\n"
  123.                                                 "(engelsk er innebygd - trengs ikke å installeres)"))
  124.  
  125.         (set abouttotxt        "Skal til å kopiere")
  126.         (set destdrawtxt    "Destinasjons skuff å kopiere til:")
  127.         (set renametxt        "Eksisterende prosjekt vil få navnet endret til")
  128.         (set prefshelp        (cat    "Prosjekteksempelet inneholder tips og triks "
  129.                                                         "om bruken av " RECALL " og kan være nyttig "
  130.                                                         "for nye brukere.  Trykk 'Ja' for å installere "
  131.                                                         "eksempelet.\n\n"
  132.                                                         "Brukere som allerede er kjent med programmet "
  133.                                                         "kan trykke 'Nei'.")
  134.                                             )
  135.         (set #WhereRecallGuide  (cat "Velg disk eller skuff hvor " RECALL " Amigaguide-dokumentet vil bli installert:"))
  136.         (set #WhereRecallASCII  (cat "Velg disk eller skuff hvor " RECALL "  ASCII-dokumentet vil bli installert:"))
  137.         (set #WhereConvertGuide (cat "Velg disk eller skuff hvor " CONVERTER " Amigaguide-dokumentet vil bli installert:"))
  138.         (set #WhereConvertASCII    (cat "Velg disk eller skuff hvor " CONVERTER " ASCII-dokumentet vil bli installert:"))
  139.     )
  140. )
  141.  
  142. ;****************************************************************************
  143. ; German strings
  144. (if(= @language "deutsch")
  145.    (
  146.         (set default_lang 2)
  147.         (set partstxt   (cat    "Wählen sie die zu installierenden Teile von\n " RECALL " " #VERSION " aus: "
  148.          "Drücken sie HELP für eine\nkurze Beschreibung der Dateien"))
  149.       (set parthelp (cat "Beschreibung der Dateien:\n\n"
  150.          RECALL ":\n"
  151.          "Hauptprogramm\n\n"
  152.          RECALLPREFS             ":\n"
  153.          "Um eigene Projekte zu erstellen\n\n"
  154.          RECALL ".prefs:\n"
  155.          "Ein Beispiel-Projekt\n\n"
  156.          "Guide-Dateien:\n"
  157.          "Dokumentation, die die Programme in diesem Packet "
  158.          "beschreibt. Das Format ist 'AmigaGuide'. Auf diese Dokumente "
  159.          "kann direkt von den Programmen aus zugegriffen werden.\n\n"
  160.          "ASCII-Dateien:\n"
  161.          "Dokumentation, die die Programme in diesem Packet "
  162.          "beschreibt. Der Inhalt ist der Gleiche wie auch in den "
  163.          "Guide-Dateien, aber ohne Guide-Codes. "
  164.          "Sie sind dazu da, um ausgedruckt zu werden.\n\n"
  165.          CONVERTER               ":\n"
  166.          "Programm zum konvertieren von Projekten verschiedener Formate\n\n"
  167.       ))
  168.       (set langtxt    (cat    "Wählen sie eine zusätzliche zu installierende Sprache aus:\n"
  169.          "(Englisch ist eingebaut - braucht also nicht extra installiert zu werden)"))
  170.       (set abouttotxt         "Kopieren von")
  171.       (set destdrawtxt        "Verzeichnis, wohin kopiert werden soll:")
  172.       (set renametxt          "Jedes alte Projekt wird umbenannt zu")
  173.       (set prefshelp          (cat    "Das Beispielprojekt enthält einige Tips"
  174.          "über die Benutzung von " RECALL " und könnte nützlich für"
  175.          "unerfahrene Benutzer sein. Drücken sie 'Ja', um das Projekt"
  176.          "zu installieren.\n\n"
  177.          "Erfahrene Benutzer sollten diesen Teil überspringen und"
  178.          "'Nein' drücken.")
  179.          )
  180.       (set #WhereRecallGuide  (cat "Wählen sie ein Verzeichnis aus, in das das " RECALL "-Amigaguide-Dokument installiert werden soll:"))
  181.       (set #WhereRecallASCII  (cat "Wählen sie ein Verzeichnis aus, in das das " RECALL "-ASCII-Dokument installiert werden soll:"))
  182.       (set #WhereConvertGuide (cat "Wählen sie ein Verzeichnis aus, in das das " CONVERTER "-Amigaguide-Dokument installiert werden soll:"))
  183.       (set #WhereConvertASCII (cat "Wählen sie ein Verzeichnis aus, in das das " CONVERTER "-ASCII-Dokument installiert werden soll:"))
  184.    )
  185. )
  186.  
  187. ;****************************************************************************
  188. ; Nederlands teksten
  189.  
  190. (if(= @language "nederlands")
  191.     (
  192.         (set default_lang 4)
  193.         (set partstxt    (cat    "Kies de onderdelen van " RECALL " " #VERSION " die u wilt installeren:\n"
  194.                                                 "Druk HELP voor een korte beschrijving van de bestanden\n"))
  195.         (set parthelp (cat "Beschrijving van de bestanden:\n\n"
  196.                                                 RECALL ":\n"
  197.                                                 "Hoofdprogamma\n\n"
  198.                                                 RECALLPREFS        ":\n"
  199.                                                 "Maak uw eigen projecten\n\n"
  200.                                                 RECALL ".prefs:\n"
  201.                                                 "Een voorbeeld project\n\n"
  202.                                                 "Guide-bestanden:\n"
  203.                                                 "Dokumentatie die de programma's uit dit pakket "
  204.                                                 "beschrijft. De documentatie staat in het "
  205.                                                 "AmigaGuide formaat. Deze documenten zijn vanuit "
  206.                                                 "het eigenlijke programma toegankelijk.\n\n"
  207.                                                 "ASCII-bestanden:\n"
  208.                                                 "Dezelfde documentatie als in de Guide-bestanden "
  209.                                                 "handig als u de documentatie uit wilt printen, "
  210.                                                 "een maar, (nog) niet in het Nederlands.\n\n"
  211.                                                 CONVERTER        ":\n"
  212.                                                 "Programma die objecten tussen verschillende "
  213.                                                 "formaten converteert\n\n"
  214.                                     ))
  215.         (set langtxt    (cat    "Kies de taalmodule(s) die u wilt installeren:\n"
  216.                                                 "(engels is reed ingebouwd - dit hoeft u niet te "
  217.                                                 "installeren)"))
  218.         (set abouttotxt        "Ik ga copieren")
  219.         (set destdrawtxt    "Bestemmings-lade om naar te kopieren:")
  220.         (set renametxt        "Oude projecten zullen hernoemd worden naar")
  221.         (set prefshelp        (cat    "Het voorbeeld project bevat een paar hints "
  222.                                                         "over het gebruik van " RECALL " en zou nuttig "
  223.                                                         "kunnen zijn voor onervaren gebruikers. Druk "
  224.                                                         "op 'Ja' om het project te installeren.\n\n"
  225.                                                         "Ervaren gebruikers kunnen doorgaan door 'Nee' "
  226.                                                         "te drukken.")
  227.                                         )
  228.         (set #WhereRecallGuide  "Kies de diskette of lade waarin de Recall Amigaguide-documentatie geinstalleerd moeten worden:")
  229.         (set #WhereRecallASCII  "Kies de diskette of lade waarin de Recall ASCII-documentatie geinstalleerd moeten worden:")
  230.         (set #WhereConvertGuide "Kies de diskette of lade waarin de Converter Amigaguide-documentatie geinstalleerd moeten worden:")
  231.         (set #WhereConvertASCII "Kies de diskette of lade waarin de Converter ASCII-documentatie geinstalleerd moeten worden:")
  232.     )
  233. )
  234.  
  235. ;****************************************************************************
  236. ; Italiano strings
  237.  
  238. (if(= @language "italiano")
  239.     (
  240.         (set default_lang 8)
  241.         (set partstxt    (cat     "Seleziona le parti di " RECALL " " #VERSION " da installare:\n"
  242.                                                 "Premi HELP per una breve descrizione dei files"))
  243.         (set parthelp (cat "Descrizione dei files:\n\n"
  244.                                                 RECALL ":\n"
  245.                                                 "Programma principale\n\n"
  246.                                                 RECALLPREFS        ":\n"
  247.                                                 "Programma di configurazione\n\n"
  248.                                                 RECALL ".prefs:\n"
  249.                                                 "Un esempio di progetto\n\n"
  250.                                                 "Guide-files:\n"
  251.                                                 "Descrizione dei programmi contenuti in questo "
  252.                                                 "pacchetto in formato AmigaGuide.  A questi documenti"
  253.                                                 "si può accedere direttamente dai rispettivi programmi.\n\n"
  254.                                                 "ASCII-files:\n"
  255.                                                 "Descrizione dei programmi contenuti in questo"
  256.                                                 "pacchetto. Contengono le stesse informazioni di quelli "
  257.                                                 "in formato AmigaGuide, ma senza caratteri di controllo. "
  258.                                                 "Possono essere utilizzati se si desidera stampare la"
  259.                                                 "documentazione.\n\n"
  260.                                                 CONVERTER        ":\n"
  261.                                                 "Programma per convertire progetti tra  i differenti "
  262.                                                 "formati\n\n"
  263.                                     ))
  264.         (set langtxt    (cat    "Selezionare lingue addizionali da installare:\n"
  265.                                                 "(L'Inglese è già presente - non serve installarlo)"))
  266.         (set abouttotxt        "Informazioni sulla copia")
  267.         (set destdrawtxt    "Cartella di destinazione:")
  268.         (set renametxt        "I vecchi progetti saranno rinominati in")
  269.         (set prefshelp        (cat    "Il progetto di esempio contiene alcuni accenni "
  270.                                                         "all'uso di " RECALL " e può essere di aiuto "
  271.                                                         "agli utenti meno esperti. Premere 'Yes' per installare "
  272.                                                         "il progetto.\n\n"
  273.                                                         "I più esperti possono continuare premendo "
  274.                                                         "'No'.")
  275.                                         )
  276.         (set #WhereRecallGuide  "Selezionare il disco o cartella in cui installare i documenti Amigaguide:")
  277.         (set #WhereRecallASCII  "Selezionare il disco o cartella in cui installare i documenti ASCII:")
  278.         (set #WhereConvertGuide "Selezionare il disco o cartella in cui installare i documenti Amigaguide del convertitore:")
  279.         (set #WhereConvertASCII    "Selezionare il disco o cartella in cui installare i documenti ASCII del convertitore:")
  280.     )
  281. )
  282.  
  283. ;****************************************************************************
  284. ; Suomi strings
  285. (if(= @language "suomi")
  286.     (
  287.         (set default_lang 16)
  288.         (set partstxt    (cat     "Valitse " RECALL " " #VERSION " :sta asennettavat osat:\n"
  289.                                                 "Paina Help nähdäksesi kuvaukset tiedostoista"))
  290.         (set parthelp (cat "Tiedostokuvaukset:\n\n"
  291.                                                 RECALL ":\n"
  292.                                                 "Pääohjelma\n\n"
  293.                                                 RECALLPREFS        ":\n"
  294.                                                 "Voit tehdä omia muistutuksiasi.\n\n"
  295.                                                 RECALL ".prefs:\n"
  296.                                                 "Esimerkkitiedosto\n\n"
  297.                                                 "Guide-tiedostot:\n"
  298.                                                 "AmigaGuiden hypertekstimuodossa olevat dokumentit "
  299.                                                 "kaikista tämän paketin ohjelmista. Niitä voi lukea "
  300.                                                 "suoraan itse ohjelmista käsin.\n\n"
  301.                                                 "ASCII-tiedostot:\n"
  302.                                                 "Dokumentit kaikista tämän paketin ohjelmista. "
  303.                                                 "Sisältävät samat tiedot kuin Guide-"
  304.                                                 "tiedostotkin, mutta ilman ohjauskoodeja. "
  305.                                                 "Näitä tulisi käyttää tulostettaessa dokumentit "
  306.                                                 "paperille.\n\n"
  307.                                                 CONVERTER        ":\n"
  308.                                                 "Ohjelma, jolla muutetaan ohjelman tiedostoja "
  309.                                                 "formaatista toiseen.\n\n"
  310.                                     ))
  311.         (set langtxt    (cat    "Valitse asennettavat kielet:\n"
  312.                                                 "(englanti sisäänrakennettuna - sitä ei tarvitse asentaa)"))
  313.         (set abouttotxt        "Kopioimassa")
  314.         (set destdrawtxt    "Hakemisto, johon kopioidaan:")
  315.         (set renametxt        "Vanhat tiedostot uudelleennimetään nimelle")
  316.         (set prefshelp        (cat    "Esimerkkitiedostossa on eräitä vinkkejä "
  317.                                                         "miten " RECALL " :ia käytetään ja se lieneekin "
  318.                                                         "hyödyllinen uusille käyttäjille. Paina 'Yes' "
  319.                                                         "asentaaksesi tiedoston.\n\n"
  320.                                                         "Tottuneet käyttäjät voinevat valita "
  321.                                                         "'No'.")
  322.                                         )
  323.         (set #WhereRecallGuide  (cat "Valitse levy tai hakemisto minne " RECALL " Amigaguide-dokumentti asennetaan:"))
  324.         (set #WhereRecallASCII  (cat "Valitse levy tai hakemisto minne " RECALL " ASCII-dokumentti asennetaan:"))
  325.         (set #WhereConvertGuide (cat "Valitse levy tai hakemisto minne " CONVERTER " Amigaguide-dokumentti asennetaan:"))
  326.         (set #WhereConvertASCII    (cat "Valitse levy tai hakemisto minne " CONVERTER " ASCII-dokumentti asennetaan:"))
  327.     )
  328. )
  329.  
  330. ;****************************************************************************
  331. ; Installation script.  DO NOT TOUCH!
  332.  
  333. (set progs
  334.     (askoptions
  335.         (help            (cat parthelp @askoptions-help))
  336.         (prompt        partstxt)
  337.         (choices    RECALL
  338.                             RECALLPREFS
  339.                             RECALL.PREFS
  340.                             RECALLGUIDE
  341.                             RECALLASCII
  342.                             CONVERTER
  343.                             CONVERTERGUIDE
  344.                             CONVERTERASCII
  345.         (default    1023)
  346.       )
  347.     )
  348. )
  349.  
  350. (set languages
  351.     (askoptions
  352.         (help            @askoptions-help)
  353.         (prompt        langtxt)
  354.         (choices    "Norsk"
  355.                             "Deutsch"
  356.                             "Nederlands"
  357.                             "Italiano"
  358.                             "Suomi"
  359.             (default default_lang)
  360.       )
  361.     )
  362. )
  363.  
  364. ; ****** RECALL *****
  365. (if (IN progs 0)
  366.     (
  367.         (copylib(source    #Mainprog)
  368.                         (dest        "SYS:WBStartup/")
  369.                         (prompt (cat abouttotxt " " RECALL))
  370.                         (help        @copylib-help)
  371.                         (confirm)
  372.                         (infos)
  373.         )
  374.         (tooltype (dest (tackon "SYS:Prefs" RECALL))
  375.                             (noposition)
  376.         )
  377.     )
  378. )
  379. (complete (/ (* (set sofar (+ sofar mainsize)) 100) done))
  380.  
  381. ; ****** RECALL PREFERENCES *****
  382. (if (IN progs 1)
  383.     (
  384.         (copylib(source    #Prefsprog)
  385.                         (dest        "SYS:Prefs/")
  386.                         (prompt (cat abouttotxt " " RECALLPREFS))
  387.                         (help        @copylib-help)
  388.                         (confirm)
  389.                         (infos)
  390.         )
  391.         (tooltype (dest (tackon "SYS:Prefs" RECALL))
  392.                             (noposition)
  393.         )
  394.     )
  395. )
  396. (complete (/ (* (set sofar (+ sofar prefssize)) 100) done))
  397.  
  398. ; ****** RECALL.PREFS *****
  399. (if (IN progs 2)
  400.     (
  401.         (if (askbool(prompt (cat    abouttotxt " " RECALL ".prefs\n\n"
  402.                                                             destdrawtxt "\n"
  403.                                                             "ENVARC:\n\n"
  404.                                                             renametxt "\n"
  405.                                                             "\"" RECALL "_OLD_.prefs\""))
  406.                                                 (help prefshelp)
  407.                 )
  408.             (
  409.                 (if (exists (cat "ENVARC:" RECALL ".prefs"))
  410.                     (
  411.                         (rename    (tackon "ENVARC:" (cat RECALL ".prefs"))
  412.                                         (tackon "ENVARC:" (cat RECALL "_OLD_.prefs"))
  413.                         )
  414.                         (set renamed 1)
  415.                     )
  416.                 )
  417.                 (copyfiles    (source    #Project)
  418.                                         (dest        "ENVARC:")
  419.                 )
  420.             )
  421.         )
  422.     )
  423. )
  424. (complete (/ (* (set sofar (+ sofar projectsize)) 100) done))
  425.  
  426. ; ****** RECALL.GUIDE *****
  427. (if (IN progs 3)
  428.     (
  429.         (set guidedest
  430.             (askdir
  431.                 (prompt        #WhereRecallGuide)
  432.                 (help            @askdir-help)
  433.                 (default    "HELP:English/")
  434.             )
  435.         )
  436.         (copyfiles(source    #recguide)
  437.                             (dest        guidedest)
  438.                             (infos)
  439.         )
  440.         (complete (/ (* (set sofar (+ sofar recguidesize)) 100) done))
  441.     )
  442. )
  443.  
  444. ; ****** RECALL.ASCII *****
  445. (if (IN progs 4)
  446.     (
  447.         (set docdest
  448.             (askdir
  449.                 (prompt        #WhereRecallASCII)
  450.                 (help            @askdir-help)
  451.                 (default    "Docs:")
  452.             )
  453.         )
  454.         (copyfiles(source    #recascii)
  455.                             (dest        docdest)
  456.                             (infos)
  457.         )
  458.         (complete (/ (* (set sofar (+ sofar recasciisize)) 100) done))
  459.     )
  460. )
  461.  
  462. ; ****** CONVERTER *****
  463. (if (IN progs 5)
  464.     (
  465.         (copylib(source    #Convprog)
  466.                         (dest        "SYS:Tools/")
  467.                         (prompt (cat abouttotxt " " CONVERTER))
  468.                         (help        @copylib-help)
  469.                         (confirm)
  470.                         (infos)
  471.         )
  472. ;        (tooltype (dest (tackon "SYS:Tools" CONVERTER))
  473. ;                            (noposition)
  474. ;        )
  475.     )
  476. )
  477. (complete (/ (* (set sofar (+ sofar convsize)) 100) done))
  478.  
  479. ; ****** CONVERTER.GUIDE *****
  480. (if (IN progs 6)
  481.     (
  482.         (set guidedest
  483.             (askdir
  484.                 (prompt        #WhereConvertGuide)
  485.                 (help            @askdir-help)
  486.                 (default    guidedest)
  487.             )
  488.         )
  489.         (copyfiles(source    #convguide)
  490.                             (dest        guidedest)
  491.                             (infos)
  492.         )
  493.         (complete (/ (* (set sofar (+ sofar convguidesize)) 100) done))
  494.     )
  495. )
  496.  
  497. ; ****** CONVERTER.ASCII *****
  498. (if (IN progs 7)
  499.     (
  500.         (set docdest
  501.             (askdir
  502.                 (prompt        #WhereConvertASCII)
  503.                 (help            @askdir-help)
  504.                 (default    docdest)
  505.             )
  506.         )
  507.         (copyfiles(source    #convascii)
  508.                             (dest        docdest)
  509.                             (infos)
  510.         )
  511.         (complete (/ (* (set sofar (+ sofar convasciisize)) 100) done))
  512.     )
  513. )
  514.  
  515. ; ****** LANGUAGE: Norsk *****
  516. (if (IN languages 0)
  517.     (
  518.         (copyfiles(source    (tackon #Locale "Norsk"))
  519.                             (dest        (tackon #Localedest (tackon "Norsk" RECALL)))
  520.                             (all)
  521.         )
  522.     )
  523. )
  524.  
  525. ; ****** LANGUAGE: Deutsch *****
  526. (if (IN languages 1)
  527.     (
  528.         (copyfiles(source    (tackon #Locale "Deutsch"))
  529.                             (dest        (tackon #Localedest (tackon "Deutsch" RECALL)))
  530.                             (all)
  531.         )
  532.     )
  533. )
  534.  
  535. ; ****** LANGUAGE: Nederlands *****
  536. (if (IN languages 2)
  537.     (
  538.         (copyfiles(source    (tackon #Locale "Nederlands"))
  539.                             (dest        (tackon #Localedest (tackon "Nederlands" RECALL)))
  540.                             (all)
  541.         )
  542.     )
  543. )
  544.  
  545. ; ****** LANGUAGE: Italiano *****
  546. (if (IN languages 3)
  547.     (
  548.         (copyfiles(source    (tackon #Locale "Italiano"))
  549.                             (dest        (tackon #Localedest (tackon "Italiano" RECALL)))
  550.                             (all)
  551.         )
  552.     )
  553. )
  554.  
  555. ; ****** LANGUAGE: Suomi *****
  556. (if (IN languages 4)
  557.     (
  558.         (copyfiles(source    (tackon #Locale "Suomi"))
  559.                             (dest        (tackon #Localedest (tackon "Suomi" RECALL)))
  560.                             (all)
  561.         )
  562.         (copyfiles(source    (tackon #Locale "Languages"))
  563.                             (dest        ("LOCALE:Languages"))
  564.                             (all)
  565.         )
  566.     )
  567. )
  568.